home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 12q.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-04  |  996 b   |  41 lines
  1. on startMovie
  2.   global qtChan, gCursorReady, gMagCursor, gMoviePlay
  3.   gCursorReady = 1
  4.   gMagCursor = "magCursor"
  5.   puppetSprite(46, 1)
  6.   gMoviePlay = 2
  7.   qtChan = 11
  8.   sprite(qtChan).volume = 256
  9. end
  10.  
  11. on idle
  12.   global gCursorReady
  13.   if gCursorReady = 1 then
  14.     cursor(200)
  15.     checkCursors()
  16.     set the locH of sprite 46 to the mouseH
  17.     set the locV of sprite 46 to the mouseV
  18.     updateStage()
  19.   end if
  20. end
  21.  
  22. on checkCursors
  23.   global gMagCursor, gMoviePlay
  24.   set the castNum of sprite 46 to the number of member "curs1"
  25.   if rollOver(4) then
  26.     set the castNum of sprite 46 to the number of member "hotCursor"
  27.   end if
  28.   if rollOver(13) then
  29.     if gMoviePlay = 0 then
  30.       set the castNum of sprite 46 to the number of member "hotCursor"
  31.     else
  32.       set the castNum of sprite 46 to the number of member "nonCursor"
  33.     end if
  34.   end if
  35.   repeat with i = 20 to 22
  36.     if rollOver(i) then
  37.       set the castNum of sprite 46 to the number of member "hotCursor"
  38.     end if
  39.   end repeat
  40. end
  41.